home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
unload1a
/
f3.frm
< prev
next >
Wrap
Text File
|
1999-10-21
|
723b
|
31 lines
VERSION 5.00
Begin VB.Form f3
AutoRedraw = -1 'True
BorderStyle = 0 'None
ClientHeight = 120
ClientLeft = 0
ClientTop = 0
ClientWidth = 165
ControlBox = 0 'False
LinkTopic = "Form2"
ScaleHeight = 120
ScaleWidth = 165
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
End
Attribute VB_Name = "f3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Unload(Cancel As Integer)
X = 1000
Y = 1000
Do Until X <= 0
X = X - 1
Y = Y - 1
f3.Height = Y
f3.Width = X
Loop
End Sub